1 /*****************************************************************************
 2 *
 3 *  PROJECT:     Multi Theft Auto v1.0
 4 *  LICENSE:     See LICENSE in the top level directory
 5 *  FILE:        mods/deathmatch/logic/packets/CPickupHideShowPacket.cpp
 6 *  PURPOSE:     Pickup hide/show packet class
 7 *  DEVELOPERS:  Christian Myhre Lundheim <>
 8 *               Jax <>
 9 *
10 *  Multi Theft Auto is available from http://www.multitheftauto.com/
11 *
12 *****************************************************************************/
13 
14 #include "StdInc.h"
15 
16 bool CPickupHideShowPacket::Write ( NetBitStreamInterface& BitStream ) const
17 {
18     // Got more than zero pickups added?
19     if ( m_List.size () > 0 )
20     {
21         // Write the flags
22         BitStream.WriteBit ( m_bShow );
23 
24         // Write the pickup ids
25         unsigned short usPickupModelID;
26         CPickup* pPickup;
27         vector < CPickup* > ::const_iterator iter = m_List.begin ();
28         for ( ; iter != m_List.end (); iter++ )
29         {
30             pPickup = *iter;
31             usPickupModelID = 0;
32 
33             // Grab the pickup type and set the pickup model id using it
34             unsigned char ucPickupType = pPickup->GetPickupType ();
35             switch ( ucPickupType )
36             {
37                 case CPickup::HEALTH: usPickupModelID = 1240; break;
38                 case CPickup::ARMOR: usPickupModelID = 1242; break;
39                 case CPickup::WEAPON: usPickupModelID = CPickupManager::GetWeaponModel ( pPickup->GetWeaponType () ); break;
40                 case CPickup::CUSTOM: usPickupModelID = pPickup->GetModel (); break;
41                 default: break;
42             }
43 
44             // Is the pickup model valid?
45             if ( usPickupModelID != 0 )
46             {
47                 // Write the pickup model id and id
48                 BitStream.WriteCompressed ( pPickup->GetID () );
49                 BitStream.WriteCompressed ( usPickupModelID );
50             }
51         }
52 
53         return true;
54     }
55 
56     return false;
57 }

 1 /* pinnacle-grey.h - Keytable for pinnacle_grey Remote Controller
 2  *
 3  * keymap imported from ir-keymaps.c
 4  *
 5  * Copyright (c) 2010 by Mauro Carvalho Chehab <mchehab@redhat.com>
 6  *
 7  * This program is free software; you can redistribute it and/or modify
 8  * it under the terms of the GNU General Public License as published by
 9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  */
12 
13 #include <media/rc-map.h>
14 
15 static struct rc_map_table pinnacle_grey[] = {
16     { 0x3a, KEY_0 },
17     { 0x31, KEY_1 },
18     { 0x32, KEY_2 },
19     { 0x33, KEY_3 },
20     { 0x34, KEY_4 },
21     { 0x35, KEY_5 },
22     { 0x36, KEY_6 },
23     { 0x37, KEY_7 },
24     { 0x38, KEY_8 },
25     { 0x39, KEY_9 },
26 
27     { 0x2f, KEY_POWER },
28 
29     { 0x2e, KEY_P },
30     { 0x1f, KEY_L },
31     { 0x2b, KEY_I },
32 
33     { 0x2d, KEY_SCREEN },
34     { 0x1e, KEY_ZOOM },
35     { 0x1b, KEY_VOLUMEUP },
36     { 0x0f, KEY_VOLUMEDOWN },
37     { 0x17, KEY_CHANNELUP },
38     { 0x1c, KEY_CHANNELDOWN },
39     { 0x25, KEY_INFO },
40 
41     { 0x3c, KEY_MUTE },
42 
43     { 0x3d, KEY_LEFT },
44     { 0x3b, KEY_RIGHT },
45 
46     { 0x3f, KEY_UP },
47     { 0x3e, KEY_DOWN },
48     { 0x1a, KEY_ENTER },
49 
50     { 0x1d, KEY_MENU },
51     { 0x19, KEY_AGAIN },
52     { 0x16, KEY_PREVIOUSSONG },
53     { 0x13, KEY_NEXTSONG },
54     { 0x15, KEY_PAUSE },
55     { 0x0e, KEY_REWIND },
56     { 0x0d, KEY_PLAY },
57     { 0x0b, KEY_STOP },
58     { 0x07, KEY_FORWARD },
59     { 0x27, KEY_RECORD },
60     { 0x26, KEY_TUNER },
61     { 0x29, KEY_TEXT },
62     { 0x2a, KEY_MEDIA },
63     { 0x18, KEY_EPG },
64 };
65 
66 static struct rc_map_list pinnacle_grey_map = {
67     .map = {
68         .scan    = pinnacle_grey,
69         .size    = ARRAY_SIZE(pinnacle_grey),
70         .rc_type = RC_TYPE_UNKNOWN, /* Legacy IR type */
71         .name    = RC_MAP_PINNACLE_GREY,
72     }
73 };
74 
75 static int __init init_rc_map_pinnacle_grey(void)
76 {
77     return rc_map_register(&pinnacle_grey_map);
78 }
79 
80 static void __exit exit_rc_map_pinnacle_grey(void)
81 {
82     rc_map_unregister(&pinnacle_grey_map);
83 }
84 
85 module_init(init_rc_map_pinnacle_grey)
86 module_exit(exit_rc_map_pinnacle_grey)
87 
88 MODULE_LICENSE("GPL");
89 MODULE_AUTHOR("Mauro Carvalho Chehab <mchehab@redhat.com>");

 1 using System;
 2 using System.Globalization;
 3 using System.Threading;
 4 using NHibernate.Cfg;
 5 using NHibernate.Properties;
 6 using NUnit.Framework;
 7 
 8 namespace NHibernate.Test.NHSpecificTest.NH480
 9 {
10     /// <summary>
11     /// This fixture is run in a Turkish locale because Turkish has special casing
12     /// rules for I and i.
13     /// </summary>
14     /// <remarks>
15     /// The rules are as follows:
16     /// <list>
17     ///     <item>I (uppercase dotless i) is mapped to dotless lowercase i by ToLower</item>
18     ///     <item>Lowercase i with a dot is mapped to uppercase I with a dot above by ToUpper</item>
19     /// </list>
20     /// This test checks that field naming strategies handle this correctly.
21     /// </remarks>
22     /// </summary>
23     [TestFixture]
24     public class Fixture
25     {
26         private CultureInfo currentCulture = null;
27         private CultureInfo currentUICulture = null;
28 
29         [TestFixtureSetUp]
30         public void TestFixtureSetUp()
31         {
32             currentCulture = Thread.CurrentThread.CurrentCulture;
33             currentUICulture = Thread.CurrentThread.CurrentUICulture;
34 
35             CultureInfo turkish = new CultureInfo("tr-TR");
36             Thread.CurrentThread.CurrentCulture = turkish;
37             Thread.CurrentThread.CurrentUICulture = turkish;
38         }
39 
40         [TestFixtureTearDown]
41         public void TestFixtureTearDown()
42         {
43             Thread.CurrentThread.CurrentCulture = currentCulture;
44             Thread.CurrentThread.CurrentUICulture = currentUICulture;
45         }
46 
47         [Test]
48         public void CheckIII()
49         {
50             Assert.AreEqual("iii", new CamelCaseStrategy().GetFieldName("Iii"));
51             Assert.AreEqual("_iii", new CamelCaseUnderscoreStrategy().GetFieldName("Iii"));
52 
53             Assert.AreEqual("iii", new LowerCaseStrategy().GetFieldName("III"));
54             Assert.AreEqual("_iii", new LowerCaseUnderscoreStrategy().GetFieldName("III"));
55 
56             Assert.AreEqual("m_Iii", new PascalCaseMUnderscoreStrategy().GetFieldName("iii"));
57             Assert.AreEqual("_Iii", new PascalCaseUnderscoreStrategy().GetFieldName("iii"));
58 
59             Assert.AreEqual("iii_iii_iii", ImprovedNamingStrategy.Instance.ColumnName("IiiIiiIii"));
60         }
61     }
62 }

 1 #ifndef __RTL8712_EFUSE_H__
 2 #define __RTL8712_EFUSE_H__
 3 
 4 #include "osdep_service.h"
 5 
 6 
 7 #define _REPEAT_THRESHOLD_  3
 8 
 9 #define EFUSE_MAX_SIZE      512
10 #define EFUSE_MAP_MAX_SIZE  128
11 
12 #define PGPKG_MAX_WORDS 4
13 #define PGPKT_DATA_SIZE 8 /* PGPKG_MAX_WORDS*2; BYTES sizeof(u8)*8*/
14 #define MAX_PGPKT_SIZE  9 /* 1 + PGPKT_DATA_SIZE; header + 2 * 4 words (BYTES)*/
15 
16 #define GET_EFUSE_OFFSET(header)    ((header & 0xF0) >> 4)
17 #define GET_EFUSE_WORD_EN(header)   (header & 0x0F)
18 #define MAKE_EFUSE_HEADER(offset, word_en)  (((offset & 0x0F) << 4) | \
19                         (word_en & 0x0F))
20 /*--------------------------------------------------------------------------*/
21 struct PGPKT_STRUCT {
22     u8 offset;
23     u8 word_en;
24     u8 data[PGPKT_DATA_SIZE];
25 };
26 /*--------------------------------------------------------------------------*/
27 u8 r8712_efuse_reg_init(struct _adapter *padapter);
28 void r8712_efuse_reg_uninit(struct _adapter *padapter);
29 u16 r8712_efuse_get_current_size(struct _adapter *padapter);
30 int r8712_efuse_get_max_size(struct _adapter *padapter);
31 void r8712_efuse_change_max_size(struct _adapter *padapter);
32 u8 r8712_efuse_pg_packet_read(struct _adapter *padapter,
33                   u8 offset, u8 *data);
34 u8 r8712_efuse_pg_packet_write(struct _adapter *padapter,
35                    const u8 offset, const u8 word_en,
36                    const u8 *data);
37 u8 r8712_efuse_access(struct _adapter *padapter, u8 bRead,
38               u16 start_addr, u16 cnts, u8 *data);
39 u8 r8712_efuse_map_read(struct _adapter *padapter, u16 addr,
40             u16 cnts, u8 *data);
41 u8 r8712_efuse_map_write(struct _adapter *padapter, u16 addr,
42                 u16 cnts, u8 *data);
43 #endif

 1 (in-package :swank)
 2 
 3 (defvar *application-hints-tables* '()
 4   "A list of hash tables mapping symbols to indentation hints (lists 
 5 of symbols and numbers as per cl-indent.el). Applications can add hash 
 6 tables to the list to change the auto indentation slime sends to 
 7 emacs.")
 8 
 9 (defun has-application-indentation-hint-p (symbol)
10   (let ((default (load-time-value (gensym))))
11     (dolist (table *application-hints-tables*)
12       (let ((indentation (gethash symbol table default)))
13         (unless (eq default indentation)
14           (return-from has-application-indentation-hint-p
15             (values indentation t))))))
16   (values nil nil))
17 
18 (defun application-indentation-hint (symbol)
19   (let ((indentation (has-application-indentation-hint-p symbol)))
20     (labels ((walk (indentation-spec)
21                (etypecase indentation-spec
22                  (null nil)
23                  (number indentation-spec)
24                  (symbol (string-downcase indentation-spec))
25                  (cons (cons (walk (car indentation-spec))
26                              (walk (cdr indentation-spec)))))))
27       (walk indentation))))
28 
29 ;;; override swank version of this function
30 (defun symbol-indentation (symbol)
31   "Return a form describing the indentation of SYMBOL. 
32 
33 The form is to be used as the `common-lisp-indent-function' property 
34 in Emacs."
35   (cond
36     ((has-application-indentation-hint-p symbol)
37      (application-indentation-hint symbol))
38     ((and (macro-function symbol)
39              (not (known-to-emacs-p symbol)))
40      (let ((arglist (arglist symbol)))
41        (etypecase arglist
42          ((member :not-available)
43           nil)
44          (list
45           (macro-indentation arglist)))))
46     (t nil)))

 1 ;;; magit-simple-keys.el --- simple keybindings for Magit
 2 
 3 ;; Copyright (C) 2011  Ramkumar Ramachandra
 4 ;;
 5 ;; Magit is free software; you can redistribute it and/or modify it
 6 ;; under the terms of the GNU General Public License as published by
 7 ;; the Free Software Foundation; either version 3, or (at your option)
 8 ;; any later version.
 9 ;;
10 ;; Magit is distributed in the hope that it will be useful, but WITHOUT
11 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12 ;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
13 ;; License for more details.
14 ;;
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with Magit.  If not, see <http://www.gnu.org/licenses/>.
17 
18 ;;; Commentary:
19 
20 ;; This plug-in overrides the keybindings in magit-key-mode with
21 ;; simpler keybindings; it does this by picking the most obviously
22 ;; used command in each key group
23 
24 ;;; Code:
25 
26 (require 'magit)
27 
28 (defvar magit-key-mode-mapping
29   '((logging magit-display-log)
30     (running magit-shell-command)
31     (fetching magit-fetch-current)
32     (pushing magit-push)
33     (pulling magit-pull)
34     (branching magit-checkout)
35     (tagging magit-tag)
36     (stashing magit-stash)
37     (merging magit-merge)
38     (submodule magit-submodule-update)))
39 
40 (defun magit-key-mode-generate (term mapping-function)
41   "Generate alias for the key-group term"
42   (eval
43    `(defalias ',(intern (concat "magit-key-mode-popup-" (symbol-name term)))
44     mapping-function)))
45 
46 ;; generate the aliases using the mapping in key-mode-mapping
47 (mapc (lambda (g)
48         (magit-key-mode-generate (car g) (cadr g)))
49       magit-key-mode-mapping)
50 
51 (provide 'magit-simple-keys)
52 ;;; magit-simple-keys.el ends here

 1 %%^M
 2 %% %CopyrightBegin%^M
 3 %%^M
 4 %% Copyright Ericsson AB 2010-2011. All Rights Reserved.^M
 5 %%^M
 6 %% The contents of this file are subject to the Erlang Public License,^M
 7 %% Version 1.1, (the "License"); you may not use this file except in^M
 8 %% compliance with the License. You should have received a copy of the^M
 9 %% Erlang Public License along with this software. If not, it can be^M
10 %% retrieved online at http://www.erlang.org/.^M
11 %%^M
12 %% Software distributed under the License is distributed on an "AS IS"^M
13 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See^M
14 %% the License for the specific language governing rights and limitations^M
15 %% under the License.^M
16 %%^M
17 %% %CopyrightEnd%^M
18 %%^M
19 ^M
20 -module(ct_cth_prio_SUITE).^M
21 ^M
22 %% Note: This directive should only be used in test suites.^M
23 -compile(export_all).^M
24 ^M
25 -include("ct.hrl").^M
26 ^M
27 suite() ->^M
28     ([{timetrap, {minutes, 10}},^M
29       {ct_hooks, [{empty_cth,[800],800},^M
30       {prio_cth,[1200]},{prio_cth,[1200,1050],1050}]}]).^M
31 ^M
32 %% Test server callback functions^M
33 init_per_suite(Config) ->^M
34     [{ct_hooks, [{empty_cth,[700],700},^M
35      {prio_cth,[600,600]},^M
36      {prio_cth,[600,200],200}]}|Config].^M
37 ^M
38 end_per_suite(_Config) ->^M
39     ok.^M
40 ^M
41 init_per_group(_G, Config) ->^M
42     [{ct_hooks, [{empty_cth,[600],600},^M
43      {prio_cth,[900,900]},{prio_cth,[500,900],900}]}|Config].^M
44 ^M
45 end_per_group(_G, _Config) ->^M
46     ok.^M
47 ^M
48 init_per_testcase(_TestCase, Config) ->^M
49     Config.^M
50 ^M
51 end_per_testcase(_TestCase, _Config) ->^M
52     ok.^M
53 ^M
54 all() ->^M
55     [{group,test_group}].^M
56 ^M
57 groups() ->^M
58     [{test_group,[],[test_case]}].^M
59 ^M
60 %% Test cases starts here.^M
61 test_case(Config) when is_list(Config) ->^M
62     ok.^M

 1 %%
 2 %% %CopyrightBegin%
 3 %%
 4 %% Copyright Ericsson AB 2007-2010. All Rights Reserved.
 5 %%
 6 %% The contents of this file are subject to the Erlang Public License,
 7 %% Version 1.1, (the "License"); you may not use this file except in
 8 %% compliance with the License. You should have received a copy of the
 9 %% Erlang Public License along with this software. If not, it can be
10 %% retrieved online at http://www.erlang.org/.
11 %%
12 %% Software distributed under the License is distributed on an "AS IS"
13 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14 %% the License for the specific language governing rights and limitations
15 %% under the License.
16 %%
17 %% %CopyrightEnd%
18 %% 
19 
20 -define(seconds(EndTs,StartTs), timer:now_diff(EndTs, StartTs)/1000000).
21 
22 %%% ------------------- %%%
23 %%% Type definitions  %%%
24 %%% ------------------- %%%
25 
26 -type timestamp() :: {non_neg_integer(), non_neg_integer(), non_neg_integer()}.
27 -type true_mfa() :: {atom(), atom(), byte() | list()}.
28 -type state() :: 'active' | 'inactive'.
29 -type scheduler_id() :: {'scheduler_id', non_neg_integer()}.
30 
31 %%% ------------------- %%%
32 %%%   Records   %%%
33 %%% ------------------- %%%
34 
35 -record(activity, {
36   timestamp     ,%:: timestamp() , 
37   id      ,%:: pid() | port() | scheduler_id(), 
38   state = undefined ,%:: state() | 'undefined', 
39   where = undefined ,%:: true_mfa() | 'undefined', 
40   runnable_count = 0  %:: non_neg_integer()
41   }).
42 
43 -record(information, {
44   id      ,%:: pid() | port(), 
45   name = undefined  ,%:: atom() | string() | 'undefined', 
46   entry = undefined ,%:: true_mfa() | 'undefined', 
47   start = undefined   ,%:: timestamp() | 'undefined',
48   stop = undefined  ,%:: timestamp() | 'undefined', 
49   parent = undefined  ,%:: pid() | 'undefined',
50   children = []   %:: [pid()]
51   }).
52 

 1 module Yi.Style.Misc (happyDeluxe,  textExMachina) where
 2 
 3 import Data.Monoid
 4 
 5 -- Have to import global Yi space to get access to Data.Prototype. That should
 6 -- be split into a separate package.
 7 import Yi
 8 
 9 -- TextMate themes are available on the TM wiki:
10 -- http://wiki.macromates.com/Themes/UserSubmittedThemes
11 
12 -- | Theme originally designed by Joseph Andrew Magnani for TextMate, and
13 -- redistributed with explicit permission. It is not usable in the vty UI.
14 happyDeluxe :: Theme
15 happyDeluxe = defaultTheme `override` \super _ -> super
16   { modelineAttributes = emptyAttributes
17   , tabBarAttributes   = emptyAttributes { foreground = RGB 255 255 255 }
18   , baseAttributes     = emptyAttributes { foreground = RGB 255 255 255, background = RGB 14 19 30 }
19 
20   , selectedStyle      = withBg (RGB 21 40 90)
21 
22   , commentStyle       = withFg (RGB 53 73 124)
23   , keywordStyle       = withFg (RGB 254 144 6)
24   , numberStyle        = withFg (RGB 20 222 209)
25   , stringStyle        = withFg (RGB 253 102 249)
26   , typeStyle          = mempty
27   , operatorStyle      = mempty
28   , errorStyle         = withFg (RGB 252 45 7)
29   }
30 
31 -- | Theme originally developed by Matthew Ratzloff for TextMate, and
32 -- redistributed with explicit permission. It is not usable in the vty UI.
33 textExMachina :: Theme
34 textExMachina = defaultTheme `override` \super _ -> super
35   { modelineAttributes = emptyAttributes { foreground = black }
36   , tabBarAttributes   = emptyAttributes { foreground = black }
37   , baseAttributes     = emptyAttributes { foreground = RGB 230 230 230, background = RGB 21 21 21 }
38 
39   , selectedStyle      = withBg (RGB 102 102 102)
40 
41   , commentStyle       = withFg (RGB 51 51 51)
42   , keywordStyle       = withFg (RGB 119 124 178)
43   , numberStyle        = withFg (RGB 174 129 255)
44   , stringStyle        = withFg (RGB 102 204 255)
45   , typeStyle          = withFg (RGB 174 129 255)
46   , variableStyle      = withFg (RGB 255 255 255)
47   , operatorStyle      = withFg (RGB 151 255 127)
48   }

 1 package org.bukkit.craftbukkit.entity;
 2 
 3 import net.minecraft.server.EntityFireball;
 4 import net.minecraft.server.EntityLiving;
 5 
 6 import org.bukkit.craftbukkit.CraftServer;
 7 import org.bukkit.entity.Fireball;
 8 import org.bukkit.entity.LivingEntity;
 9 import org.bukkit.util.Vector;
10 
11 public class CraftFireball extends AbstractProjectile implements Fireball {
12     public CraftFireball(CraftServer server, EntityFireball entity) {
13         super(server, entity);
14     }
15 
16     @Override
17     public String toString() {
18         return "CraftFireball";
19     }
20 
21     public float getYield() {
22         return ((EntityFireball) getHandle()).yield;
23     }
24 
25     public boolean isIncendiary() {
26         return ((EntityFireball) getHandle()).isIncendiary;
27     }
28 
29     public void setIsIncendiary(boolean isIncendiary) {
30         ((EntityFireball) getHandle()).isIncendiary = isIncendiary;
31     }
32 
33     public void setYield(float yield) {
34         ((EntityFireball) getHandle()).yield = yield;
35     }
36 
37     public LivingEntity getShooter() {
38         if (((EntityFireball) getHandle()).shooter != null) {
39             return (LivingEntity) ((EntityFireball) getHandle()).shooter.getBukkitEntity();
40         }
41 
42         return null;
43 
44     }
45 
46     public void setShooter(LivingEntity shooter) {
47         if (shooter instanceof CraftLivingEntity) {
48             ((EntityFireball) getHandle()).shooter = (EntityLiving) ((CraftLivingEntity) shooter).entity;
49         }
50     }
51 
52     public Vector getDirection() {
53         return new Vector(((EntityFireball) getHandle()).c, ((EntityFireball) getHandle()).d, ((EntityFireball) getHandle()).e);
54     }
55 
56     public void setDirection(Vector direction) {
57         ((EntityFireball) getHandle()).setDirection(direction.getX(), direction.getY(), direction.getZ());
58     }
59 }

 1 // Copyright Joyent, Inc. and other Node contributors.
 2 //
 3 // Permission is hereby granted, free of charge, to any person obtaining a
 4 // copy of this software and associated documentation files (the
 5 // "Software"), to deal in the Software without restriction, including
 6 // without limitation the rights to use, copy, modify, merge, publish,
 7 // distribute, sublicense, and/or sell copies of the Software, and to permit
 8 // persons to whom the Software is furnished to do so, subject to the
 9 // following conditions:
10 //
11 // The above copyright notice and this permission notice shall be included
12 // in all copies or substantial portions of the Software.
13 //
14 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
15 // OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
16 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
17 // NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
18 // DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
19 // OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
20 // USE OR OTHER DEALINGS IN THE SOFTWARE.
21 
22 var common = require('../common');
23 var assert = require('assert');
24 
25 var Script = require('vm').Script;
26 
27 common.debug('run in a new empty context');
28 var context = Script.createContext();
29 var result = Script.runInContext('"passed";', context);
30 assert.equal('passed', result);
31 
32 common.debug('create a new pre-populated context');
33 context = Script.createContext({'foo': 'bar', 'thing': 'lala'});
34 assert.equal('bar', context.foo);
35 assert.equal('lala', context.thing);
36 
37 common.debug('test updating context');
38 result = Script.runInContext('var foo = 3;', context);
39 assert.equal(3, context.foo);
40 assert.equal('lala', context.thing);

 1 module(..., package.seeall);
 2 
 3 require('Body')
 4 require('walk')
 5 require('vector')
 6 require('Config')
 7 require('wcm')
 8 require('gcm')
 9 
10 t0 = 0;
11 timeout = 10.0;
12 
13 maxStep = 0.06;
14 
15 rClose = 0.30;
16 
17 tLost = 3.0;
18 
19 
20 function entry()
21   print(_NAME.." entry");
22 
23   t0 = Body.get_time();
24 end
25 
26 function update()
27   local t = Body.get_time();
28 
29   ball = wcm.get_ball();
30   pose = wcm.get_pose();
31   ballGlobal = util.pose_global({ball.x, ball.y, 0}, {pose.x, pose.y, pose.a});
32   tBall = Body.get_time() - ball.t;
33 
34   id = gcm.get_team_player_id();
35   role = gcm.get_team_role();
36   if id == 1 then
37     -- goalie
38     centerPosition = vector.new(wcm.get_goal_defend());
39     centerPosition[1] = centerPosition[1] - util.sign(centerPosition[1]) * .5;
40     -- face center
41     centerPosition[3] = math.atan2(centerPosition[2], 0 - centerPosition[1]);
42 
43     -- use stricter thresholds
44     thAlign = 10*math.pi/180;
45     rClose = .1;
46   else
47     if (role == 2) then
48       -- defend
49       centerPosition = vector.new(wcm.get_goal_defend())/2.0;
50     elseif (role == 3) then
51       -- support
52       centerPosition = vector.zeros(3);
53     else
54       -- attack
55       centerPosition = vector.new(wcm.get_goal_attack())/2.0;
56     end
57   end
58 
59   centerRelative = util.pose_relative(centerPosition, {pose.x, pose.y, pose.a});
60   rCenterRelative = math.sqrt(centerRelative[1]^2 + centerRelative[2]^2);
61 
62   vx = maxStep * centerRelative[1]/rCenterRelative;
63   vy = maxStep * centerRelative[2]/rCenterRelative;
64   if id == 1 then
65     va = .2 * centerRelative[3];
66   else
67     va = .2 * math.atan2(centerRelative[2], centerRelative[1]);
68   end
69   walk.set_velocity(vx, vy, va);
70 
71   ballR = math.sqrt(ball.x^2 + ball.y^2);
72   if (tBall < 1.0) then
73     return 'ballFound';
74   end
75   if ((t - t0 > 2.0) and (rCenterRelative < rClose)) then
76     return 'done';
77   end
78   if (t - t0 > timeout) then
79     return "timeout";
80   end
81 end
82 
83 function exit()
84 end
85